home *** CD-ROM | disk | FTP | other *** search
/ Jurassic Jigsaws / JURASSIC.BIN / mmvdemo.dir / 00381_Script_movie script < prev    next >
Text File  |  1996-09-24  |  3KB  |  102 lines
  1. global gTitleList, gControlButtonList, gDirectionList, gIntroButtonList, gFrameList, gMMVList
  2. global gNextmarker, gWhichTitle, gPlaying, gWaitTime
  3.  
  4.  
  5.  
  6.  
  7. on startmovie
  8.   set gTitleList = [ "Cybertown", "Cyberopolis", "Carnival", "CyberStone", "Museum"]
  9.   set gControlButtonList = [ "Play", "Stop", "QuitB", "Quit", "MainMenu" ]
  10.   set gDirectionList = [ "Left Arrow", "Right Arrow" ]
  11.   set gIntroButtonList = [ "IntroGus", "Buds" ]
  12.   set gMMVList = ["About", "People", "Gus", "Award", "Order" ]
  13.   set gFrameList = [ "Cybertown":11, "Cyberopolis":14, "Carnival":8, "CyberStone":8, "Museum":17, ¼
  14.                     "Gus" : 16, "People" :4, "About": 2 ]
  15.   set gWaitTime = 180
  16. end startmovie
  17.  
  18.  
  19.  
  20. on DoButton whichbutton
  21.   
  22.   if getPos ( gDirectionList, whichbutton ) > 0 then 
  23.     --    alert " we are doing a direction button " & RETURN & whichbutton
  24.     if whichbutton = "Left Arrow" then 
  25.       --      if label (0) = label(gWhichTitle) then set gNextMarker = getAprop(gFramelist, gWhichtitle)
  26.       --      else set gNextmarker = -1
  27.       if label (0) = label(gWhichTitle) then go label ( getAprop(gFramelist, gWhichtitle) )
  28.       else go Label (-1) 
  29.     else if label (1) = label ( "end" & gWhichtitle ) then 
  30.       go Label ( gWhichtitle )
  31.     else go label ( 1 )
  32.     set gPlaying = FALSE
  33.     go the frame + 1
  34.     exit
  35.     
  36.   else if getPos ( gTitleList, whichbutton ) > 0 then
  37.     --    alert " we are doing a Title button " & RETURN & whichbutton
  38.     put whichbutton into gWhichTitle
  39.     put whichbutton into gNextMarker
  40.     --    go the frame + 1
  41.     go label(gWhichTItle)
  42.     set gPlaying = FALSE
  43.     exit
  44.     
  45.   else if getPos ( gMMVList, whichbutton ) > 0 then
  46.     --    alert " we are doing a Title button " & RETURN & whichbutton
  47.     put whichbutton into gWhichTitle
  48.     put whichbutton into gNextMarker
  49.     go label (gWhichTitle)
  50.     exit
  51.     
  52.   else if getPos (gControlButtonList, whichbutton ) > 0 then
  53.     --    alert " we are doing a control button " & RETURN & whichbutton
  54.     if whichbutton = "Play" then set gPlaying = TRUE
  55.     else if whichbutton = "Stop" then 
  56.       set gPlaying = FALSE
  57.       puppetsound 0
  58.     else if whichbutton = "QuitB" or whichbutton = "QUIT" then 
  59.       go to movie "Dintrfce"
  60.     else if whichbutton = "Mainmenu" then 
  61.       go frame "Intro"
  62.     else alert "the Control Button " & RETURN & whichbutton & RETURN & "is not accounted for"
  63.     continue
  64.     exit
  65.     
  66.     
  67.   else if getPos ( gIntroButtonList, whichbutton ) > 0 then
  68.     --    alert " we are doing an intro button " & RETURN & whichbutton
  69.     if whichbutton = "IntroGus" then go label ("MMVMenu")
  70.     else if whichbutton = "Buds" then go label ("DemoMenu")
  71.     else alert "the Intro Button " & RETURN & whichbutton & RETURN & "is not accounted for"
  72.     exit
  73.     
  74.   else 
  75.     alert "the button " & RETURN & whichbutton & RETURN & " was not found in any" & RETURN¼
  76.            & " of the button lists."
  77.     
  78.   end if
  79.   
  80. end DoButton
  81.  
  82.  
  83.  
  84. on waitforvoiceover
  85.   
  86.   repeat while soundbusy(1) or soundbusy(2)
  87.     if the mousedown then exit repeat
  88.   end repeat
  89.   
  90.   sound stop 1
  91.   sound stop 2
  92.   
  93. end waitforvoiceover
  94.  
  95. on wait howlong
  96.   set the timer = 0
  97.   starttimer
  98.   repeat while the timer < howlong
  99.     if the mousedown = TRUE then exit repeat
  100.   end repeat
  101.   
  102. end wait